home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-ROM Collection / Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso / auge4000 / 46 / lib / string / strins.c < prev    next >
C/C++ Source or Header  |  1990-06-20  |  335b  |  33 lines
  1.  
  2. /*
  3.  *  STRINS.C
  4.  */
  5.  
  6. void
  7. strins(d, s)
  8. char *d;
  9. const char *s;
  10. {
  11.     int len = strlen(s);    /*  # bytes to insert   */
  12.     int i;
  13.     char *ptr;
  14.  
  15.     /*
  16.      *    make room
  17.      */
  18.  
  19.     ptr = d + strlen(d);
  20.     while (ptr >= d) {
  21.     ptr[len] = ptr[0];
  22.     --ptr;
  23.     }
  24.  
  25.     /*
  26.      *    insert string
  27.      */
  28.  
  29.     while (*s)
  30.     *++ptr = *s++;
  31. }
  32.  
  33.